home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D01.D64 / mem scan (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  60 lines
  1. 10 A=A+1:IF A=1 THEN LOAD"SPR.",8,1
  2. 15 U=0
  3. 20 PX=81
  4. 30 PY=24
  5. 50 POKE 53280,0:POKE 53281,15
  6. 90 SCR=1184
  7. 100 MEM=0
  8. 109 PRINT""
  9. 110 PRINT"[147]"
  10. 120 PRINT"[158]                                        [146]"
  11. 130 PRINT"[145] [146][144]F1-FORWARD F3-BACKWARD F5-FIND F7-QUIT[158] [146]"
  12. 140 PRINT"[145]                                        [146]"
  13. 150 PRINT""
  14. 160 POKE SCR,NNMP:POKE SCR+1,42
  15. 170 IF SCR>2023 THEN GOTO 500
  16. 175 IF MEM<0 THEN MEM=0
  17. 178 IF MEM>65280 THEN MEM=65280
  18. 180 SCR=SCR+1:MEM=MEM+1
  19. 190 NNMP=PEEK(MEM)
  20. 195 PRINT"";MEM;"    "
  21. 200 GOTO 160
  22. 500 REM CHOICE
  23. 510 GET A$:IF A$="[133]"THEN GOTO 2000
  24. 520 IF A$="[134]"THEN GOTO 2100
  25. 530 IF A$="[135]"THEN GOTO 1000
  26. 540 IF A$="[136]"THEN POKE 53269,0:PRINT"[147]":END
  27. 550 GOTO 500
  28. 1000 POKE 53269,1:POKE 53248,80:POKE 53249,80:POKE 53276,1
  29. 1010 POKE 53287,12
  30. 1020 POKE 53285,11
  31. 1030 POKE 53286,1
  32. 1040 POKE 53275,0
  33. 1050 POKE 2040,160
  34. 1060 A=255-PEEK(56320)
  35. 1070 IF A AND 1 THEN PX=PX-8:U=U-40
  36. 1080 IF A AND 2 THEN PX=PX+8:U=U+40
  37. 1090 IF A AND 4 THEN PY=PY-8:U=U-1
  38. 1100 IF A AND 8 THEN PY=PY+8:U=U+1
  39. 1110 IF A AND 16 THEN GOTO 160
  40. 1115 IF PY>255 THEN POKE 53264,1:PY=0:BA=1
  41. 1116 IF BA=1 THEN GOSUB 1200
  42. 1120 POKE 53248,PY
  43. 1130 POKE 53249,PX
  44. 1135 PRINT"";U;"[157][157][157][157][157]      "
  45. 1150 GOTO 1060
  46. 1200 REM
  47. 1220 IF PY<0 THEN PY=248:POKE 53264,0:BA=0
  48. 1230 RETURN
  49. 2000 REM FORWARD
  50. 2010 SCR=1184
  51. 2020 IF MEM>65280 THEN MEM=63280:GOTO 160
  52. 2030 U=U+840
  53. 2040 GOTO 160
  54. 2100 REM BACKWARD
  55. 2110 SCR=1184
  56. 2115 MEM=MEM-1680
  57. 2120 IF MEM<0 THEN MEM=0:GOTO 160
  58. 2130 U=U-840
  59. 2140 GOTO 160
  60.